﻿Public Class frmTabCloudCover

    Dim editnode As EditXML = New EditXML()

    Private Sub frmTabCloudCover_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Leave
        editXMLFile()
    End Sub
    Public Sub editXMLFile()
        Dim strInput As String = ""
        If rdoCloudUnk.Checked Then strInput = "Unknown"
        If rdoCloud.Checked Then strInput = numCloud.Value.ToString()
        editnode.Edit("/metadata/dataqual/cloud", strInput)
    End Sub

    Private Sub button_example_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button_example.Click
        Dim helpForm As dialog_help = New dialog_help("CloudCover")
        helpForm.ShowDialog()
    End Sub
End Class